%% scr.sty v. 1.0a 14. 1. 1993
%% Renamed from:
%% script.sty  v 1.0a von J"org Knappen 11. 9. 1992
%% (c) J"org Knappen 1991, 1992, 1993         knappen@vkpmzd.kph.uni-mainz.de
%% Copying conditions: Gnu licence v 1.0
%% Created 31-jan-1992
%% Changed 11-sep-1992: Added sizes 20 and 25
%% Changed name on 14-jan-1993
%%
%% L"adt die RSFS-Zeichens"atze unter dem neuen Zeichensatzwahlschema
%% und definiert \script (als Fontschalter)
%% 
%% The RSFS fonts are loaded and the following control sequences are
%% defined:
%% \script    acts as a font switch, switching its argument to RSFS
\@ifundefined{extract@font}
     {\errmessage{The style option `script' does not make sense if you
                  do not use a format with the new font selection scheme.}
      \endinput}
     {}

  \def\RIfM@{\relax\protect\ifmmode}
    \let\boxz@\fi % \if \fi matching hack
  \def\boxz@{\box\z@}
  \def\setboxz@h{\setbox\z@\hbox}
  \def\wdz@{\wd\z@}
  \def\noaccents@{\def\accentclass@{0}}
  \def\Invalid@@{Invalid use of \string}
  \def\nonmatherr@#1{\err@
    {\string#1\space allowed only in math mode}\@ehd}
  \def\err@{\@latexerr}

\newmathalphabet\script@
\addtoversion{normal}\script@{script}{m}{n}
\addtoversion{bold}\script@{script}{m}{n}
\def\pscript{\RIfM@\expandafter\script@\else
                  \expandafter\nonmatherr@\expandafter\script\fi}
\def\script{\protect\pscript}
\new@fontshape{script}{m}{n}{%
  <5>rsfs5%
  <6>rsfs5 at6pt%
  <7>rsfs7%
  <8>rsfs10 at8pt%
  <9>rsfs10 at9pt%
  <10>rsfs10%
  <11>rsfs10 at10.95pt% 
  <12>rsfs10 at12pt%
  <14>rsfs10 at14.4pt%
  <17>rsfs10 at17.28pt%
  <20>rsfs10 at19.71pt%
  <25>rsfs10 at24.48pt%
  }{}
\extra@def{script}{}{\noaccents@}
\endinput
